home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / Shutdown.amirx < prev    next >
Text File  |  1997-03-12  |  634b  |  26 lines
  1. /* Kuang Eleven v2.7 Shutdown for AmIRC 1.22+ */
  2. address REXX
  3. if ~show('L','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  4. p=0;l=show('P')
  5. do i=0 until p=0
  6.     p=pos('AMIRC',l,p+1)
  7. end
  8. if i>1 then exit
  9.  
  10. putlst=getclip('sc_copyscripts')
  11. delist=''
  12. if putlst~='' then do until putlst=''
  13.     parse var putlst scr putlst
  14.     delist=delist 'T:'scr
  15. end
  16. address command 'delete T:Kuang11.amirx'delist 'FORCE QUIET'
  17.  
  18. x=show('C')
  19. do i=1 to words(x)
  20.     y=word(x,i)
  21.     z=substr(y,1,3)
  22.     if z='sc_'|z='st_' then call setclip(y)
  23. end
  24. if show('P','KUANGPORT') then address KUANGPORT 'endprog()'
  25. if show('P','KUANG') then address KUANGPORT 'quit'
  26.